unit ufTestFinish;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs,uiWizard, StdCtrls;

type
  TTestFinish = class(TForm,iWizardPage,IWizardExitPage)
    lbl1: TLabel;
  private
    { Private declarations }
    fWizMgr : IWizardManager;
  public
    procedure SetWizardManager(Mgr: IWizardManager);
    { Public declarations }

  end;

var
  TestFinish: TTestFinish;

implementation

{$R *.dfm}

{ TTestFinish }

procedure TTestFinish.SetWizardManager(Mgr: IWizardManager);
begin
  fWizMgr := Mgr;
  fWizMgr.SetNextEnabled(True);
  fWizMgr.SetNextType(wbt_Finish);
end;

initialization
  RegisterClass(TTestFinish);
end.
